# parabolic temp response
Temp <- seq(0,50); nT <- length(Temp)
Tu <- c(40,45,50);np <- length(Tu)
Tl <- 0
# dimension array
y <- matrix(nrow=nT,ncol=np)
# loop for the various optimal temperatures and then for temp range
for(j in 1:np){
for(i in 1:nT) y[i,j] <- parab(Temp[i],Tl,Tu[j])
}
# rate kT
Temp <- seq(20,30); nT <- length(Temp)
k0 <- 1
q10 <- c(1,1.5,2); np <- length(q10)
kT <- matrix(nrow=nT,ncol=np)
for(i in 1:np){
kT[,i] <- kT.rate(Temp,k0,q10[i])/kT.rate(Temp[1],k0,q10[i])
}
# Q10
Temp <- seq(0,50); nT <- length(Temp)
Topt= 25; Tmax <- 40; q10 <- 1.5
fT <- Q10(Temp, param=c(Topt,Tmax,q10))
Temp <- seq(0,50); nT <- length(Temp)
# param Topt, Tmax,q10
param.nom <- c(25,40,1.5)
Topt.sens <- c(20,25,30)
Tmax.sens <- c(40,45,50)
q10.sens <- c(1,1.5,2)
np <- length(q10)
test <- Q10.mruns(Temp,param.nom,Topt.sens,Tmax.sens,q10.sens)
Run the code above in your browser using DataLab